unit frmMainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ExtCtrls, frmMainFrame, frmListFrame, dmdIBDataModule;

type
  TMainForm = class(TForm)
    MainMenu: TMainMenu;
    mnuToernooi: TMenuItem;
    mnuSchaatser: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure mnuSchaatserClick(Sender: TObject);

  private
    MainFrame: TMainFrame;
    ListFrame: TListFrame;
    LFrame: TListFrame;

  public


  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

{ TMainForm }


procedure TMainForm.FormCreate(Sender: TObject);
begin
  MainFrame := TMainFrame.Create(Self);
  Self.InsertControl(MainFrame);
end;


procedure TMainForm.mnuSchaatserClick(Sender: TObject);
begin

  MainFrame.Hide;
  ListFrame := TListFrame.Create(Self);
  with ListFrame do
  begin
    addField('id','ID');
    addField('naam','Naam');
    addField('nationaliteit','Nat');
    addTable('schaatser','');
    addCondition('WHERE id = 2');
    updateSQL;
  end;
end;

end.
